home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi_1 / form2.frm < prev    next >
Text File  |  1998-08-22  |  3KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Z Axis"
  5.    ClientHeight    =   2160
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   1350
  9.    Icon            =   "Form2.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "Form2.frx":08CA
  14.    ScaleHeight     =   2160
  15.    ScaleWidth      =   1350
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Start"
  19.       Height          =   375
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   1800
  23.       Width           =   1335
  24.    End
  25.    Begin VB.Timer Timer1 
  26.       Enabled         =   0   'False
  27.       Interval        =   100
  28.       Left            =   0
  29.       Top             =   240
  30.    End
  31.    Begin VB.Timer Timer2 
  32.       Enabled         =   0   'False
  33.       Interval        =   100
  34.       Left            =   480
  35.       Top             =   240
  36.    End
  37.    Begin VB.CommandButton Command2 
  38.       Caption         =   "Return"
  39.       Height          =   375
  40.       Left            =   0
  41.       TabIndex        =   1
  42.       Top             =   1800
  43.       Width           =   1335
  44.    End
  45.    Begin VB.Label Label1 
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "C"
  48.       BeginProperty Font 
  49.          Name            =   "Tahoma"
  50.          Size            =   72
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00808080&
  58.       Height          =   1575
  59.       Left            =   0
  60.       TabIndex        =   2
  61.       Top             =   0
  62.       Width           =   1215
  63.    End
  64. End
  65. Attribute VB_Name = "Form2"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Dim C3D As Integer
  71.  
  72.  
  73.  
  74. Private Sub Timer1_Timer()
  75. C3D = C3D - 1
  76. Label1.FontSize = C3D
  77. If C3D = 1 Then Command1.Visible = False
  78. If C3D = 1 Then Command2.Visible = True
  79. If C3D = 1 Then Timer1.Enabled = False
  80. End Sub
  81. Private Sub Timer2_Timer()
  82. C3D = C3D + 1
  83. Label1.FontSize = C3D
  84. If C3D = 72 Then Command2.Visible = False
  85. If C3D = 72 Then Command1.Visible = True
  86. If C3D = 72 Then Timer2.Enabled = False
  87. End Sub
  88.  
  89. Private Sub Command1_Click()
  90. Timer1.Enabled = True
  91. End Sub
  92. Private Sub Command2_Click()
  93. Timer2.Enabled = True
  94. End Sub
  95. Private Sub Form_Load()
  96. C3D = 72
  97. End Sub
  98.